home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / funk.ellip. l6 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  191b  |  10 lines
  1. 10 sys 37173,"0",-3,15,-3
  2. 20 :
  3. 30 for a=2 to 0 step -0.5
  4. 40 : sys 37173,"+sqr(a*a-0.25*x*x+2*x+2)+1"
  5. 50 : sys 37173,"-sqr(a*a-0.25*x*x+2*x+2)+1"
  6. 60 next a
  7. 70 :
  8. 80 poke 198,0:wait198,1:getz$
  9. 90 sys 40211
  10.